home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 February
/
Ahoy_Magazine_87-02_1987_Double_L.d64
/
Distance Finder
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
371b
|
14 lines
0 rem << cd38-1 >>
1 rem commodares problem #34-1:
2 print" distance finder"
3 rem solution by
4 rem craig ewert
5 rem
10 input"enter width & height";w,h : hn=w*h
20 input"enter point numbers";a,b
30 if a<0 or a>hn or b<0 or b>hn then print"error in numbers" : goto 20
40 x1=int((a-1)/w) : y1=a-w*x1
50 x2=int((b-1)/w) : y2=b-w*x2
60 dt=sqr((x2-x1)^2 + (y2-y1)^2)
70 print"distance =";dt